home *** CD-ROM | disk | FTP | other *** search
/ Meeting Pearls 2 / Meeting Pearls Vol. II (1995)(GTI - Schatztruhe)[!].iso / Pearls / dev / TurboM2 / m2 / InOut.def < prev    next >
Text File  |  1994-11-13  |  560b  |  21 lines
  1. DEFINITION MODULE InOut ;
  2.  
  3. VAR
  4.   done : BOOLEAN ;
  5.  
  6. (* Crude subset of PIM InOut, use ANSI_C StdIO/ or BIO/FIO instead *)
  7.  
  8. PROCEDURE Write( ch : CHAR ) ;
  9. PROCEDURE WriteLn ;
  10. PROCEDURE WriteString( str : ARRAY OF CHAR ) ;
  11. PROCEDURE WriteInt( x : LONGINT ; n : INTEGER ) ;
  12. PROCEDURE WriteOct( x : LONGINT ; n : INTEGER ) ;
  13. PROCEDURE WriteHex( x : LONGINT ; n : INTEGER ) ;
  14.  
  15. PROCEDURE Read         ( VAR ch : CHAR ) ;
  16. PROCEDURE ReadString ( VAR str : ARRAY OF CHAR ) ;
  17. PROCEDURE ReadInt    ( VAR x : INTEGER ) ;
  18. PROCEDURE ReadLongInt( VAR x : LONGINT ) ;
  19.  
  20. END InOut.
  21.